10 POKE56,32:POKE55,32:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53281,0:POKE53280,0:PRINT"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
40 PRINT"      [212][201][212][204][197] [211][195][210][197][197][206] [214][201][197][215][197][210]/[208][210][201][206][212][197][210]
50 [158]57812"UNPACKER.89",DV,0:[151]780,0:[151]781,0:[151]782,201:[158]65493
60 [158]57812"INTRO.SHP",DV,0:[151]780,0:[151]781,0:[151]782,32:[158]65493
70 [158]57812"TSWP93 $C000",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
80 [151]251,32:[151]252,224:[151]253,204:[158]51456
90 [151]53280,0
100 LF$(0)[178]"(null)ASCASC":LF$(1)[178]"(null)(null) "
110 [153]" 1.CONT MID$UST SHOW THE PICTURE.
120 PRINT" 2.[154] [211]HOW THE PICTURE AND PRINT IT ON
125 [153]"    A 7-PIN (1525-EMULATING) PRINTER.
130 PRINT" 3.[154] [211]HOW THE PICTURE AND PRINT IT ON
135 [153]"    AN 8-PIN (VALPSON-EMULATING) PRINTER.
140 PRINT" 4.[154] [212]OGGLE LINEFEED -- "LF$(LF)
150 PRINT" 5.[154] [210]ETURN TO [204][207][193][196][211][212][193][210]
170 [153]"LIST  (null)AKE SURE YOUR PRINTER IS ON-LINE.
220 POKE198,0
230 GETA$:IFA$<"1"ORA$>"5"THEN230
232 IFA$="5"THEN40000
233 IFA$="4"THENLF=1-LF:POKE214,13:PRINT:PRINTTAB(23)""LF$(LF):GOTO230
235 SYS51459
240 IFA$="2"THENSYS49155,4,5,LF,0,0,39,24,224:GOTO280
250 IFA$="3"THENSYS49152,4,5,LF,0,0,39,24,224,76,35,65,8,0:GOTO280
260 POKE198,0
270 GETA$:IFA$=""THEN270
280 POKE251,32:POKE252,224:POKE253,204:SYS51459
290 GOTO230
10000 OPEN15,8,15,"S0:TS VIEWER":CLOSE15:SAVE"TS VIEWER",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END